home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / oopasm / cursor.asm < prev    next >
Encoding:
Assembly Source File  |  1990-07-12  |  1.1 KB  |  64 lines
  1.     .MODEL    SMALL
  2.  
  3.     INCLUDE    equates.inc
  4.     INCLUDE    instance.inc
  5.     INCLUDE    messages.inc
  6.     INCLUDE    objects.inc
  7.  
  8. IF1
  9.     INCLUDE    macros.mac
  10.     INCLUDE    objects.mac
  11.     INCLUDE    cursor.mac
  12. ENDIF
  13.  
  14.     EXTRN    Self:WORD
  15.  
  16.     .CODE
  17.  
  18. COMMENT    %
  19. ==============================================================================
  20. Positions the cursor.
  21.  
  22. =============================================================================%
  23. setCursor    PROC    NEAR
  24.     getInst        dh,Row1,Cursor        ;Get cursor row
  25.     getInst        dl,Col1            ;Get cursor column
  26.     setCur        dh,dl            ;Position cursor
  27.     ret
  28. setCursor    ENDP
  29.  
  30.  
  31.  
  32. COMMENT    %
  33. ==============================================================================
  34. Sets Cursor coordinates so that it becomes hidden on next Refresh.
  35.  
  36. =============================================================================%
  37. clrCursor    PROC    NEAR
  38.     setInst        Row1,25,Cursor,1    ;Set cursor row
  39.     setInst        Col1,0,,1        ;Set cursor column
  40.     ret
  41. clrCursor    ENDP
  42.  
  43.  
  44.  
  45.     .DATA
  46.  
  47. defMsg    Cursor,\
  48.     Refresh,\
  49.     <,,setCursor>
  50.  
  51. defMsg    Cursor,\
  52.     Update,\
  53.     <clrCursor,,>
  54.  
  55. defObj    Cursor,\
  56.     <>,\
  57.     <Row1,1,25,\
  58.     Col1,1,0>,\
  59.     <Refresh,Update>
  60.  
  61.  
  62.  
  63.     END
  64.